home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / background_4177.txt < prev    next >
Text File  |  1990-04-02  |  2KB  |  102 lines
  1. -- background: 4177 from stack: in
  2. -- bmap block id: 4749
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Experiment 5
  6.  
  7.  
  8. -- part 15 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=428 top=119 right=150 bottom=498
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Parameter
  20.  
  21.  
  22. -- part 16 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=428 top=160 right=289 bottom=498
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Blurb
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global cardClear5
  37.  
  38.   if cardClear5 is true then runExperiment
  39.   else
  40.     clearCardGraphics
  41.     set the loc of button "puck" to 207,316
  42.     put "Press this field to begin tracing the path of the puck." into me
  43.     put true into cardClear5
  44.     pass mouseUp
  45.   end if
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 19 (button)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=428 top=293 right=328 bottom=498
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 1020 / 1020
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Help
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   show card field "help"
  65.   wait until the mouse is down
  66.   hide card field "help"
  67. end mouseUp
  68.  
  69.  
  70. -- part 20 (button)
  71. -- low flags: 00
  72. -- high flags: 2000
  73. -- rect: left=428 top=38 right=69 bottom=498
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Main Menu
  82.  
  83.  
  84. -- part 21 (button)
  85. -- low flags: 00
  86. -- high flags: A002
  87. -- rect: left=16 top=319 right=340 bottom=76
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Return
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global ReturnCard
  99.   go ReturnCard
  100. end mouseUp
  101.  
  102.